home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9204a.d64 / c-f (comp).seq < prev    next >
Text File  |  1995-03-30  |  1KB  |  42 lines

  1. ;SPEEDER COMPUTER->FLOPPY (COMP.ROUTINE)
  2.  
  3.     LDA #$0B    ;ATTENTION IN CIA 2
  4.     STA $DD00   ;SETZEN
  5.     LDX #$03    ;AUF DATA-LEITUNG
  6. L1  LDA $DD00   ;WARTEN
  7.     BPL L1      ;
  8.     STX $DD00   ;ATN RUECKSETZEN
  9. L2  LDA PUFFER,Y;DATENBYTES HOLEN
  10.     LDX #$0B    ;ATN
  11.     STX $DD00   ;SETZEN
  12.     TAX         ;BYTE RETTEN
  13.     AND #$F0    ;DATENBITS 4 UND 5
  14.     STA $DD00   ;ISOLIEREN & UEBERTRAGEN
  15.     LSR A       ;RECHTS ROTIEREN
  16.     LSR A       ;
  17.     AND #$F0    ;UND BITS 6 UND 7
  18.     STA $DD00   ;UEBERTRAGEN
  19.     TXA         ;GERETTER WERT IN AKKU
  20.     AND #$0F    ;AUS LOWNIBBLE BITS
  21.     TAX         ;0 UND 1 ISOLIEREN
  22.     LDA TAB,X   ;WERT AUS TABELLE LADEN
  23.     STA $DD00   ;UND UEBERTRAGEN
  24.     LSR A       ;WIEDER
  25.     LSR A       ;RECHTS ROTIEREN
  26.     AND #$F0    ;UND BITS 2 UND 3
  27.     STA $DD00   ;UEBERTRAGEN
  28.     NOP         ;ZYKLEN
  29.     NOP         ;AUSGLEICH
  30.     NOP         ;
  31.     INY         ;NAECHSTES BYTE
  32.     BNE L2      ;
  33.     LDA #$03    ;ATN
  34.     STA $DD00   ;ZURUECKSETZEN
  35.     RTS         ;UND RUECKKEHR
  36.  
  37. TAB .BYTE $00,$10,$20,$30
  38.     .BYTE $40,$50,$60,$70
  39.     .BYTE $80,$90,$A0,$B0
  40.     .BYTE $C0,$D0,$E0,$F0
  41.  
  42.